iprint info
!tab = image
!ifdef tab
	$dialog table title "Выбор снимка" text !tab ok "Выбрать"
	!i_id = id
        !ifdef i_id
		$dialog select title "Выбор видимой области снимка" text "Полный снимок< >|Левая верхняя четверть<0 0 0.5 0.5>|Правая верхняя четверть<0.5 0 1 0.5>|Левая нижняя четверть<0 0.5 0.5 1>|Правая нижняя четверть<0.5 0.5 1 1>|" ok "Выбрать"
		!rec = select
		!ifdef rec
		 	iset id !i_id nbound !rec flush
		 	$image id !i_id flush
		!delete rec
		!endif
	!delete i_id
	!endif
!delete tab
!endif
